Imports FDS.UI.StyleGuide
Imports System.Xml
Imports System.Xml.Xsl
Imports System.Xml.XPath
Imports System.Security
Imports System.Web
Imports System.Web.SessionState
Public Class adm_securityHandler
    'Dim securityContext As FspContext = FspContextFactory.create()
    Dim resourcesAllowed As Hashtable = New Hashtable
    'Dim aorsAllowed As ArrayList = New ArrayList
    'Dim userProfile As Hashtable = New Hashtable
    Dim objRole As DictionaryEntry
    Dim strKey As String
    Dim strRole As String
    Dim blnAuthorized As Boolean = False

    '    Try
    ''Retrieve resources allowed to this user
    '        resourcesAllowed = securityContext.retrievePermissions()

    '        For Each objRole In resourcesAllowed
    '            strKey = objRole.Key
    '            strRole = objRole.Value
    '            Select Case strKey.ToLower
    '                Case "feature.viewreports", "feature.viewmdaonly"
    '                    blnAuthorized = True
    '                    Exit For
    '            End Select
    ''If strKey.ToLower = "feature.viewreports" And strRole = True Then
    ''    blnAuthorized = True
    ''    Exit For
    ''ElseIf strKey.ToLower = "viewmdaonly" And strRole = True Then
    ''    blnAuthorized = True
    ''    Exit For
    ''End If
    '        Next
End Class
